home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / U-User Group / (k)u8.d64 / bootcomal (.txt) < prev    next >
Commodore BASIC  |  2007-02-28  |  2KB  |  57 lines
  1. 10 POKE 53280,1
  2. 20 POKE 53281,0
  3. 30 POKE 646,1
  4. 40 PRINT CHR$(147);CHR$(14);"      [195][194][205] [195][207][205][193][204]80 FOR [195]OMMODORE 64      ";
  5. 50 PRINT CHR$(18);"----------------------------------------";
  6. 60 PRINT CHR$(146);"     [196]ISTRIBUTED BY [194]RIAN [199]RAINGER"
  7. 70 PRINT CHR$(18);"[201]NDEPENDENT [195]OMMODORE [208]RODUCTS [213]SER [199]RP.";
  8. 80 PRINT CHR$(18);"----------------------------------------";
  9. 90 PRINT CHR$(146);"        [205]EMBERSHIP ENQUIRIES TO:"
  10. 100 PRINT" [205]EMB. [211]EC., [201][195][208][213][199], 30 [194]RANCASTER [210]OAD,"
  11. 110 PRINT" [206]EWBURY [208]ARK, [201]LFORD, [197]SSEX. [201][199]2 7[197][208]
  12. 120 [153]"                VAL(null)CHR$(null)ATN(null)STR$"
  13. 130 [153] [199](18);"----------------------------------------";
  14. 140 [153][199](146);" (null)HIS VERION OF LEN(null)(null)ATN(null) IS FOR THE LEN-64."
  15. 150 [153]" RIGHT$T INCLUDES VIRTUALLY ALL OF THE LEN(null)(null)ATN(null)"
  16. 160 [153]" (null)ERNAL DEFINITION PLUS COMMANDS FOR:"
  17. 170 [153]"     (1) (null)CREEN AND LENOLOUR CONTROL"
  18. 180 [153]"     (2) LEFT$IRES (null)LOTTING"
  19. 190 [153]"     (3) (null)URTLE CHR$RAPHICS"
  20. 200 [153]"     (4) (null)PRITE LENONTROL"
  21. 220 [153]" (null)HE LEN(null)(null)ATN(null) CARTRIDGE, COMING SOON, ADDS"
  22. 222 [153]" (null)OUND COMMANDS - (null)SER DEFINED FONTS"
  23. 224 [153]" (null)ADDLE/MID$OYSTICK/(null)IGHTPEN CONTROL"
  24. 226 [153]" (null)PTIONAL (null)EXT (null)TYLES- 2 MORE STRUCTURES";
  25. 228 [153]" ATNBILITY TO LINK MACHINE CODE ATN(null)STR$ (null)(null)(null)VAL."
  26. 230 [153] [199](18);"----------------------------------------"
  27. 240 I[178]146
  28. 250 T[178]TI
  29. 260 [153]"       ";[199](I);"(null)RESS '(null)ETURN' TO CONTINUEON"
  30. 270 [161]A$:[139]A$[178][199](13)[167]300
  31. 280 [139] TI[179]T[170]30[167]270
  32. 290 I[178]164[171]I : [137]250
  33. 300 [143]
  34. 340 [153] [199](147);[199](14);"      LENPEEK(null) LEN(null)(null)ATN(null)80 FOR LENOMMODORE 64      ";
  35. 350 [153] [199](18);"----------------------------------------";
  36. 360 [153] [199](146);"     STR$ISTRIBUTED BY PEEKRIAN CHR$RAINGER"
  37. 370 [153] [199](18);"RIGHT$NDEPENDENT LENOMMODORE (null)RODUCTS (null)SER CHR$RP.";
  38. 380 [153] [199](18);"----------------------------------------";
  39. 390 [153] [199](146);"        (null)EMBERSHIP ENQUIRIES TO:"
  40. 400 [153]" (null)EMB. (null)EC., RIGHT$LEN(null)(null)CHR$, 30 PEEKRANCASTER (null)OAD,"
  41. 410 [153]" (null)EWBURY (null)ARK, RIGHT$LFORD, VALSSEX. RIGHT$CHR$2 7VAL(null)
  42. 420 PRINT"                [197][206][199][204][193][206][196]"
  43. 430 PRINT CHR$(18);"----------------------------------------"
  44. 600 PRINT CHR$(146)
  45. 610 PRINT"   [204]OADING[146] [195][207][205][193][204] 0.14 FOR THE [195]-64..."
  46. 620 POKE 198,9
  47. 630 POKE 631,ASC("C")
  48. 640 POKE 632,ASC("H")
  49. 650 POKE 633,ASC("A")
  50. 660 POKE 634,ASC("I")
  51. 670 POKE 635,ASC("N")
  52. 680 POKE 636,34
  53. 690 POKE 637,ASC("E")
  54. 700 POKE 638,ASC("M")
  55. 710 POKE 639,13
  56. 720 LOAD "C64 COMAL 0.14",8
  57.